home *** CD-ROM | disk | FTP | other *** search
/ MacWorld: Hardware Guide 1994 / Macworld Interactive - Hardware Guide 1994 (PDO).iso / Demos / Fractal Design Painter™ / Painter 2.0 Demo / Painter 2.0 Demo.rsrc / STR#_9.txt < prev    next >
Text File  |  1992-12-28  |  3KB  |  269 lines

  1. %%DocumentData: Binary
  2.  
  3.  
  4. %%DocumentData: Clean8Bit
  5.  
  6.  
  7. %%Extensions: CMYK
  8.  
  9.  
  10. dopic
  11.  
  12.  
  13. save
  14. restore
  15.  
  16.  
  17. %%EndComments
  18.  
  19.  
  20. %%%%BlackPlate:%s
  21.  
  22.  
  23. %%%%YellowPlate:%s
  24.  
  25.  
  26. %%%%MagentaPlate:%s
  27.  
  28.  
  29. %%%%CyanPlate:%s
  30.  
  31.  
  32. %%DocumentProcessColors: Black
  33.  
  34.  
  35. %%DocumentProcessColors: Yellow
  36.  
  37.  
  38. %%DocumentProcessColors: Magenta
  39.  
  40.  
  41. %%DocumentProcessColors: Cyan
  42.  
  43.  
  44. %%DocumentProcessColors: Cyan Magenta Yellow Black
  45.  
  46.  
  47. %%SuppressDotGainCompensation
  48.  
  49.  
  50. %%%%BoundingBox: 0 0 %d %d
  51.  
  52.  
  53. %%%%CreationDate: %s %s
  54.  
  55.  
  56. %%%%Title: %s
  57.  
  58.  
  59. %%Creator: Painter Version 2.0
  60.  
  61.  
  62. %!PS-Adobe-3.0 EPSF-3.0
  63.  
  64.  
  65. grestore end
  66.  
  67.  
  68. 0 %d translate 1 -1 scale %f %f scale %d %d translate
  69.  
  70.  
  71. pixwidth pixheight scale
  72.  
  73.  
  74.   {currentfile picstr readstring pop} false 3 colorimage
  75.  
  76.  
  77.   {currentfile picstr readhexstring pop} false 3 colorimage
  78.  
  79.  
  80.   {currentfile picstr readhexstring pop} false 4 colorimage
  81.  
  82.  
  83.   {currentfile picstr readhexstring pop} image
  84.  
  85.  
  86. gsave 0 %d translate 1 -1 scale
  87.  
  88.  
  89. (Painter file: %s: %s %s: %s plate) show
  90.  
  91.  
  92. AM
  93.  
  94. PM
  95.  
  96. 0 setgray %f %f moveto
  97.  
  98.  
  99. 1 setgray %f %f moveto (K50) show
  100.  
  101.  
  102. 0 setgray %f %f moveto (C45 M55 Y65) show
  103.  
  104.  
  105. 1 setgray %f %f moveto (C50 M50 Y60) show
  106.  
  107.  
  108. 0 setgray %f %f moveto (C50 M50 Y50) show
  109.  
  110.  
  111. black
  112.  
  113. yellow
  114.  
  115. magenta
  116.  
  117. cyan
  118.  
  119. (K) show
  120.  
  121.  
  122. (Y) show
  123.  
  124.  
  125. (M) show
  126.  
  127.  
  128. (C) show
  129.  
  130.  
  131. 1 setgray %f %f moveto
  132.  
  133.  
  134. currentfont [1 0 0 -1 0 0] makefont setfont
  135.  
  136.  
  137. 0 setgray newpath %f %f moveto lbox
  138.  
  139.  
  140.   bwx 6 mul neg 0 rlineto closepath fill } def
  141.  
  142.  
  143. /lbox { bwx 6 mul 0 rlineto 0 bhx neg rlineto
  144.  
  145.  
  146. unused #42
  147.  
  148. } def
  149.  
  150.  
  151. /sproc%c {
  152.  
  153. 1 fact div 1 fact div scale %f neg %f neg translate 0 %d translate 1 -1 scale
  154.  
  155. %f setgray newpath %f %f moveto lbox
  156.  
  157.  
  158. %f %f /sproc%c load setscreen
  159.  
  160.  
  161. %f %f /sproc%c load %f %f /sproc load setcolorscreen
  162.  
  163.  
  164. %f %f /sproc%c load %f %f /sproc%c load
  165.  
  166.  
  167. /dopic
  168. {  width height 8
  169.   [width 0 0 height neg 0 height]
  170.  
  171.  
  172. %d %d translate %f %f scale 1 -1 scale 0 %d translate
  173.  
  174.  
  175. 0 %d translate 1 -1 scale %f %f scale %d %d translate
  176.  
  177.  
  178. {} {} {} {} setcolortransfer
  179.  
  180.  
  181. /picstr %d string def
  182.  
  183.  
  184. /pixheight %d def
  185.  
  186.  
  187. /pixwidth %d def
  188.  
  189.  
  190. /height %d def
  191.  
  192.  
  193. /width %d def
  194.  
  195.  
  196. gsave
  197.  
  198.  
  199. grestore
  200.  
  201.  
  202. gsave 1 -1 scale 0 %d neg translate %f %f translate fact fact scale
  203.  
  204.  
  205. dopic
  206.  
  207.  
  208. gsave %d %d translate width fact mul height fact mul scale
  209.  
  210.  
  211. } def
  212.  
  213.  
  214. {currentfile picstr readstring pop} image
  215.  
  216.  
  217. {currentfile picstr readstring pop} false 4 colorimage
  218.  
  219.  
  220. width height 8 [width 0 0 height neg 0 height]
  221.  
  222.  
  223. {} settransfer
  224.  
  225.  
  226. {} {} {} {} setcolortransfer
  227.  
  228.  
  229. /dopic {
  230.  
  231.  
  232. /picstr width string def
  233.  
  234.  
  235. /width %d def /height %d def /fact %f def
  236.  
  237.  
  238. 40 dict begin gsave
  239.  
  240.  
  241. 1 setgray 
  242.  
  243. 0 setgray 
  244.  
  245. 0.5 setlinewidth
  246.  
  247.  
  248. %f setgray newpath %f %f moveto dobox
  249.  
  250.  
  251. bwx neg 0 rlineto closepath fill} def
  252.  
  253.  
  254. /dobox {bwx 0 rlineto 0 bhx neg rlineto
  255.  
  256.  
  257. /bhx %f def
  258.  
  259.  
  260. /bwx %f def
  261.  
  262.  
  263. newpath %f %f %f 0 360 arc closepath fill
  264.  
  265.  
  266. newpath %f %f moveto %f %f lineto stroke
  267.  
  268.  
  269.